home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)m1.d64 / mash.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  238 lines
  1. 50 REM ********************************
  2. 55 REM *                              *
  3. 60 REM *          M A S H             *
  4. 65 REM *                              *
  5. 70 REM ********************************
  6. 75 :
  7. 80 :REM    BY PAUL ROYLE  (OCT 83)
  8. 85 :REM    -----------------------
  9. 90 :REM "    [207][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][208]     "
  10. 95 :REM "    [165]JOYSTICK  VERSION[167]     "
  11. 100 REM "    [204][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][186]     "
  12. 105 :
  13. 110 P$="M*A*S*H"
  14. 115 PRINT"[147]";
  15. 120 FORI=1TO36
  16. 125 PRINT"[166]";
  17. 130 NEXTI
  18. 135 FORI=1TO19
  19. 140 PRINT"[157][166]";
  20. 145 NEXT
  21. 150 FORI=1TO35
  22. 155 PRINT"[157][157][166]";
  23. 160 NEXTI
  24. 165 FORI=1TO19
  25. 170 PRINT"[157][145][166]";
  26. 175 NEXTI
  27. 180 PRINT"PAUL ROYLE"
  28. 185 PRINT"PRESENTS":FORT=1TO100 :NEXTT
  29. 190 FOR I=1TOINT((40-(2*LEN(P$)))/2)
  30. 195 PRINT"";
  31. 200 NEXTI
  32. 205 FORI=1TOLEN(P$)
  33. 210 FORT=1TO100:NEXTT
  34. 215 PRINTMID$(P$,I,1);" ";
  35. 220 NEXTI:PRINT""
  36. 225 FOR I=1TOINT((40-(2*LEN(P$)))/2)
  37. 230 PRINT"";
  38. 235 NEXTI
  39. 240 PRINT"[157][183]";: FORI=1TOLEN(P$)
  40. 245 FORT=1TO100:NEXTT
  41. 250 PRINT"[183][183]";
  42. 255 NEXTI:PRINT""
  43. 260 PRINT" HIT SPACE TO START [146]"
  44. 265 GETA$:IFA$<>" "THEN265
  45. 270 :
  46. 275 BASE=1064 :LT= 1
  47. 280 POKE 53280,6 :REM CHANGE BORDER
  48. 285 PRINT"[147]";TAB(16);"M ";:FORT=1TO250:NEXTT
  49. 290 PRINT"A ";:FORT=1TO250:NEXTT
  50. 295 PRINT"S ";:FORT=1TO250:NEXTT
  51. 300 PRINT"H ";:FORT=1TO250:NEXTT
  52. 305 PRINT"[147]   JOYSTICK     M A S H[146]     JOYSTICK"
  53. 310 PRINT"            BY: PAUL  ROYLE"
  54. 315 GETA$:IFA$<>""THEN315
  55. 320 IF HIGH<>0THEN PRINT"      HIGH SCORE[146]:";HIGH;" BY ";HIGH$
  56. 325 PRINT"  IN THIS GAME YOU ARE A MASH CHOPPER"
  57. 330 PRINT" PILOT.  YOU MUST PICK UP CASUALTIES AT"
  58. 335 PRINT"PICK UP POINTS MARKED 0 THRU 9, AND";
  59. 340 PRINT" TAKETHEM TO THE 4077TH ([219]). DELIVER AS MANY"
  60. 345 PRINT"  AS POSSIBLE IN 60 MINS OF FUEL. BUT"
  61. 350 PRINT"  1 SECOND REAL TIME IS EQUIVALENT TO "
  62. 355 PRINT"  1 MIN GAME TIME SO YOU ONLY HAVE 60"
  63. 360 PRINT"   REAL SECONDS."
  64. 365 PRINT" YOU CAN ONLY LAND ON A ROAD, CLEARING"
  65. 370 PRINT"  CHOPPER PAD, OR PICK UP POINT.
  66. 375 [153]" TRY TO LAND BEFORE RUNNING OUT OF FUEL"
  67. 380 [153]" FOR BEST SCORE.  IF YOU DON'T YOU WILL"
  68. 385 [153]" CRASH!!  YOU CAN ALSO CRASH BY ";
  69. 390 [153]"LANDING  IN THE WRONG PLACE."
  70. 395 [153]"NOTEWAIT: DON'T FORGET TO TAKE OFF AT START"
  71. 400 [153]"         HIT ANY KEY TO CONTINUE        WAIT"
  72. 405 [161]A$:[139]A$[178]""[167]405
  73. 410 [161]A$:[139]A$[179][177]""[167]410
  74. 415 [153]"LOAD THE CONTROLS ARE ON JOYSTICK 2"
  75. 420 [153]"   TAKE OFF (null) LAND    N"
  76. 425 [153]"     (FIRE BUTTON)    (null)"
  77. 430 [153]"                    WTAN(null)TANE"
  78. 435 [153]"                      (null)"
  79. 440 [153]"                      S"
  80. 445 [153]"  (null)  REPRESENTS THE 4077TH"
  81. 450 [153]"  *  REPRESENTS A MINE FEILD"
  82. 455 [153]"  SPC(  REPRESENTS TREES"
  83. 460 [153]" (null)TAN(null) REPRESENTS ROADS"
  84. 465 [153]"     REPRESENTS A CLEARING"
  85. 470 [153]"  EWAIT  REPRESENTS ENEMY TERRITORY"
  86. 475 [153]"  @  REPRESENTS WATER"
  87. 480 [153]" 0-9 REPRESENTS PICK UP POINTS"
  88. 485 [153]"  (null)WAIT  REPRESENTS YOUR CHOPPER"
  89. 490 [153]"";[163]15);"GOOD LUCK!WAIT"
  90. 495 [153][163]13);"HIT SWAIT TO START"
  91. 500 [161]A$:[139]A$[179][177]"S"[167]500
  92. 505 :
  93. 510 BASE[178]1064
  94. 515 [151] 53280,6 :[143] CHANGE BORDER
  95. 530 :
  96. 535 [153]"LOAD FUEL:      WAIT   M*A*S*HWAIT MNS OF FUEL"
  97. 540 [153]"EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEWAIT";
  98. 545 [153]"EWAITSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(@SPC(SPC(SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(EWAIT";
  99. 550 [153]"EWAITSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(@SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(EWAIT";
  100. 555 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(EWAIT";
  101. 560 [153]"EWAITSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(@SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC((null)SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(EWAIT";
  102. 565 [153]"EWAITSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(@SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(MID$TANRIGHT$SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(EWAIT";
  103. 570 [153]"EWAITSPC( SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(@SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC((null)SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(EWAIT";
  104. 575 [153]"EWAITSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(@SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC((null)SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC((null)TANRIGHT$SPC(EWAIT";
  105. 580 [153]"EWAITSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(@SPC(SPC(SPC(SPC(SPC(*****SPC(SPC(SPC(SPC((null)SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(MID$=(null)SPC(EWAIT";
  106. 585 [153]"EWAITSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(@SPC(SPC(SPC(SPC(SPC(SPC(*   *SPC(SPC(SPC(SPC((null)SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC((null)SPC(SPC(EWAIT";
  107. 590 [153]"EWAITSPC(SPC(SPC(SPC(SPC(SPC(SPC(@SPC(SPC(SPC(SPC(  SPC(* (null) *TANTANTANTAN<SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC((null)SPC(SPC(EWAIT";
  108. 595 [153]"EWAITSPC(SPC(SPC(SPC(SPC(@@SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(*   *SPC(SPC(SPC(SPC((null)SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC((null)SPC(SPC(EWAIT";
  109. 600 [153]"EWAITSPC(SPC(SPC(SPC(@@@SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(*****SPC(SPC(SPC(SPC((null)SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC((null)SPC(SPC(EWAIT";
  110. 605 [153]"EWAITSPC(SPC(SPC(@@@@@SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC(SPC(SPC(MID$TANTANTANTANTANTANTANTANTANTAN<SPC(SPC(EWAIT";
  111. 610 [153]"EWAITSPC(SPC(@@@@@@@SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC((null)SPC(SPC(EWAIT";
  112. 615 [153]"EWAITSPC(SPC(@@@@@@@SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC((null)SPC(SPC(EWAIT";
  113. 620 [153]"EWAITSPC(SPC(SPC(@@@@@SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC((null)SPC(SPC(EWAIT";
  114. 625 [153]"EWAITSPC(SPC(SPC(SPC(@@@SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(MID$TANTANTAN";
  115. 630 [153]"EWAITSPC(SPC(SPC(SPC(SPC(@SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(EWAIT";
  116. 635 [153]"EWAITSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC(SPC(EWAIT";
  117. 640 [153]"EWAITSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(EWAIT";
  118. 645 [153]"EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEWAIT";
  119. 650 SC[178]0:ST$[178]"L"
  120. 655 [153]"STATUS: AT 4077TH"
  121. 660 PC[178]91
  122. 665 P[178]BASE[170]418
  123. 670 [129]I[178]1[164]10
  124. 675 TM[178][197]([200](([196]([171]TI)),1))
  125. 680 UP[178][181]([187](TM)[172]880)[170]1
  126. 685 [139][194](BASE[170]UP)[179][177]102[167]680
  127. 690 [151]BASE[170]UP,I[170]47
  128. 695 [130]I
  129. 700 TI$[178]"000000":T1[178]0:T2[178]0:T3[178]0:T4[178]0:T5[178]0
  130. 705 [139]TI[177]600 [175]T1[178]0[167][153]"THEN":T1[178]1
  131. 710 [139]TI[177]1200[175]T2[178]0[167][153]"THENTHEN":T2[178]1
  132. 715 [139]TI[177]1800[175]T3[178]0[167][153]"THENTHENTHEN":T3[178]1
  133. 720 [139]TI[177]2400[175]T4[178]0[167][153]"THENTHENTHENTHEN":T4[178]1
  134. 725 [139]TI[177]3000[175]T5[178]0[167][153]"THENTHENTHENTHENTHEN":T5[178]1
  135. 730 [139]TI[177]3600[175]ST$[178]"A"[167]890
  136. 735 [139]TI[177]3600[167]995
  137. 740 [139]TI[177]3300[167][141]790
  138. 745 [141]1060:[139]JV[179][177]1[175]JV[179][177]4[175]JV[179][177]8[175]JV[179][177]2[167][141]815
  139. 750 [153]"";[181](60[171](TI[173]60));"CMD "
  140. 755 [139]FR[178]0  [167] 1065
  141. 760 [139]ST$[179][177]"A"[167]705
  142. 765 [139]JV[178]1  [167]PN[178]P[171]40:PQ[178][194](PN):[137]825
  143. 770 [139]JV[178]4  [167]PN[178]P[171]1 :PQ[178][194](PN):[137]825
  144. 775 [139]JV[178]8  [167]PN[178]P[170]1 :PQ[178][194](PN):[137]825
  145. 780 [139]JV[178]2  [167]PN[178]P[170]40:PQ[178][194](PN):[137]825
  146. 785 [137]705
  147. 790 [129]I[178]1[164]2
  148. 795 [153]" LOW ON FUEL!WAIT":[129]T[178]1[164]2 :[130]T
  149. 800 [153]" LOW ON FUEL!":[130]I:[142]
  150. 805 [153]"";
  151. 810 [153]"STATUS: AIR BORN           ":ST$[178]"A":[129]I[178]1[164]100:[130] :[137]705
  152. 815 [139]CB[178]0[167][151]P,219:[129]T[178]1[164]15:[130]T:CB[178]1:[142]
  153. 820 [151]P,214:[129]T[178]1[164]15:[130]T:CB[178]0:[142]
  154. 825 [139]PN[179]BASE[167]975
  155. 830 [139]PN[177]BASE[170]880[167]975
  156. 835 [139]PQ[178]133[167]975
  157. 840 [151]PN,214:[151]P,PC:P[178]PN:PC[178]PQ:[137]705
  158. 845 [139]PC[177]47 [175]PC[179]58 [167]870
  159. 850 [139]PC[178]102 [176] PC[178]0 [176] PC[178]42[167]890
  160. 855 [139]PC[178]91[167]945
  161. 860 [139]TI[177]3600[175]ST$[178]"A"[167]890
  162. 865 [153]"STATUS:LANDED    ":ST$[178]"L":[137]705
  163. 870 [139]C[177]0[167]985
  164. 875 [153]"STATUS:AT PICK UP POINT":ST$[178]"L"
  165. 880 C[178][181](2[172][187](1))[170]1:[153]"PICKED UP";C;"CASUALTIES RETURN TO 4077TH"
  166. 885 PC[178]32:[137]705
  167. 890 [129]X[178]1[164]15:[161]A$
  168. 895 [153]"                 CRASH!                 WAITON";:[129]T[178]1[164]20:[130]T
  169. 900 [153]"                 CRASH!                 ON";:[129]T[178]1[164]10:[130]T:[130]X
  170. 905 [153]"       YOU'RE DEAD SUCKER!!"
  171. 910 [153]"YOU REALLY BLEW IT"
  172. 915 [153]"THAT CUTS DOWN YOUR SCORE TO";[181]((1[170]SC)[173]2)
  173. 920 [153]"   HIT SPACE OR WAIT TO START AGAIN" :T[178]0:C[178]0:SC[178]0:ST$[178]"L"
  174. 925 T[178]T[170]1
  175. 930 [161]A$:[139]A$[179][177]""[167]285
  176. 935 [139]T[179]500[167]925
  177. 940 [137]285
  178. 945 [153]"STATUS:LANDED AT 4077 ":ST$[178]"L"
  179. 950 [153]"                                       ON"
  180. 955 [139]C[178]0[167][137]705
  181. 960 SC[178]SC[170](10[172]C)
  182. 965 [153]"SCORE=";SC;""
  183. 970 C[178]0:[137]705
  184. 975 [153]"   YOU FLEW INTO ENEMY TERRITORY !"
  185. 980 [153]"    YOU'RE SHOT DOWN IDIOT!":[137]890
  186. 985 [153]"                                       ON"
  187. 990 [153]"FULL LOAD!! RETURN TO 4077TH":ST$[178]"L":[137]705
  188. 995 [153]"LOAD  TIMES UP  CONGRATULATIONSWAIT YOU LANDED "
  189. 1000 [153]"    BEFORE RUNNING OUT OF GAS !!!!!"
  190. 1005 [153]"    THAT GIVES YOU A 100 POINT BONUS"
  191. 1010 SC[178]SC[170]100
  192. 1015 [153]" YOUR SCORE IS";SC;"WAIT!!"
  193. 1020 [139]SC[179]130[167][153]"BETTER LUCK NEXT TIME WIMP:":[137]1040
  194. 1025 [139]SC[179]160[167][153]"THAT'S NOT TO GOOD BUT TRY AGAIN":[137]1040
  195. 1030 [139]SC[179]190[167][153]"NOT BAD!! BUT YOU COULD DO BETTER!":[137]1040
  196. 1035 [153]"GOOD SCORE ACE !!!!!!!!!!!!!!!!!!"
  197. 1040 [151]198,0:[139] SC[179]HIGH [167] [137]920
  198. 1045 [153]"CONGRATULATIONS THATS HIGH SCOREWAIT!!"
  199. 1050 [133]"PLEASE ENTER YOUR NAME";HIGH$
  200. 1055 HIGH$[178][200](HIGH$,10):HIGH[178]SC:[137]920
  201. 1060 JV[178][194](56320):FR[178]JV[175]16:JV[178]15[171](JV[175]15):[142]
  202. 1065 [139]LT[178][171]1[167]LT[178]1:[137]845
  203. 1070 LT[178][171]1:[137]805
  204. 1075 [143] *****************************
  205. 1080 [143]
  206. 1085 [143]            THE END
  207. 1090 [143]
  208. 1095 [143] *****************************
  209. 1100 :
  210. 1105 [143] ****************************
  211. 1110 [143]   EXPLANATION OF VARIABLES
  212. 1115 [143] ****************************
  213. 1120 :
  214. 1125 [143] C IS THE NUMBER OF CASUALTIES
  215. 1130 [143] SC IS THE SCORE
  216. 1135 [143] P IS THE CURRENT POSITION
  217. 1140 [143] PN IS THE NEXT POSITION
  218. 1145 [143] PC IS THE CHARACTER UNDER THE CHOPPER
  219. 1150 [143] PQ IS THE CHARACTER THAT THE CHOPPER WILL MOVE OVER
  220. 1155 [143] ST$ IS THE STATUS (A AIRBORN L LANDED)
  221. 1160 [143] BASE IS THE FIRST POSITION ON THE SECOND LINE OF THE SCREEN
  222. 1165 CB IS THE CHOPER BLADE [185]ITI[145] (1 [176] 0)
  223. 1175 [143] LT  (-1=TAKEOFF,1=LAND)
  224. 1180 [143] JV=NUMBER FROM JOYSTICK
  225. 1185 [143] FR IS FIRE BUTTON STATUS
  226. 1190 [143] HIGH$=HIGH SCORER
  227. 1195 [143] HIGH= HIGH SCORE
  228. 1196 :
  229. 1197 :
  230. 1200 [143]  BY PAUL ROYLE
  231. 1205 [143]  71 AMORO DRIVE
  232. 1210 [143]  REXDALE  ONT.
  233. 1211 [143]  M9W 4S3   CANADA
  234. 1212 [143]
  235. 1213 [143]  IF YOU ENJOYED THIS GAME
  236. 1214 [143]  PLEASE DROP ME A POSTCARD
  237. 1215 [143] ------------------------------------------------------------------
  238.